home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / util / cli / ksc_BrdrBlnk.lha / GlobalBorderBlank.asm < prev    next >
Encoding:
Assembly Source File  |  1998-04-08  |  705 b   |  39 lines
  1. ; GlobalBorderBlank 1.2 : adds/removes black border round all screens
  2. ; by Kyzer/CSG
  3. ; $VER: GlobalBorderBlank.asm 1.0 (08.04.98)
  4. ; 
  5.     incdir    include:
  6.     include    lvo/exec_lib.i
  7.     include    lvo/intuition_lib.i
  8.     include    graphics/gfxbase.i
  9.  
  10. BPLCON3_BRDNBLNK=5
  11.  
  12.     move.l    4.w,a6
  13.  
  14.     lea    gfxname(pc),a1
  15.     moveq    #39,d0
  16.     jsr    _LVOOpenLibrary(a6)
  17.     tst.l    d0
  18.     beq.s    .quit
  19.     move.l    d0,a1
  20.     bchg.b    #BPLCON3_BRDNBLNK,gb_BP3Bits(a1)
  21.     jsr    _LVOCloseLibrary(a6)
  22.  
  23.     lea    intname(pc),a1
  24.     moveq    #36,d0
  25.     jsr    _LVOOpenLibrary(a6)
  26.     tst.l    d0
  27.     beq.s    .quit
  28.     move.l    d0,a6
  29.     jsr    _LVORemakeDisplay(a6)
  30.     move.l    a6,a1
  31.     move.l    4.w,a6
  32.     jsr    _LVOCloseLibrary(a6)
  33.  
  34. .quit    moveq    #0,d0
  35.     rts 
  36.  
  37. intname    dc.b    'intuition.library',0
  38. gfxname    dc.b    'graphics.library',0
  39.